home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / tex / dvivga9.arc / SETFNTNM.H < prev    next >
Encoding:
Text File  |  1988-05-30  |  943 b   |  35 lines
  1. /* -*-C-*- setfntnm.h */
  2. /*-->setfntnm*/
  3. /**********************************************************************/
  4. /****************************** setfntnm ******************************/
  5. /**********************************************************************/
  6.  
  7. void
  8. setfntnm(k)
  9. register INT32 k;
  10.  
  11. /***********************************************************************
  12. This routine is used to specify the  font to be used in printing  future
  13. characters.
  14. ***********************************************************************/
  15.  
  16. {
  17.     register struct font_entry *p;
  18.  
  19.     p = hfontptr;
  20.     while ((p != (struct font_entry *)NULL) && (p->k != k))
  21.     p = p->next;
  22.     if (p == (struct font_entry *)NULL)
  23.     {
  24.     (void)sprintf(message,"setfntnm():  font %ld undefined", k);
  25.     (void)fatal(message);
  26.     }
  27.     else
  28.     fontptr = p;
  29.  
  30. #if    (HPJETPLUS | POSTSCRIPT | IMPRESS | CANON_A2)
  31.     font_switched = TRUE;
  32. #endif
  33.  
  34. }
  35.